home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / software.sit / Software 1.0 / background_2781.txt < prev    next >
Text File  |  1988-11-14  |  11KB  |  506 lines
  1. -- background: 2781 from stack: in.0
  2. -- bmap block id: 2060
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: disk
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   hide field "distribution"
  9.   hide field "registered"
  10.   hide field "copy protected"
  11.   pass openBackground
  12. end openBackground
  13.  
  14.  
  15.  
  16. on openCard
  17.  
  18.   ClearButtons
  19.   ClearBoxes
  20.  
  21.   if field "distribution" = "p" then
  22.     set hilite of background button "public domain" to true
  23.     set textStyle of background button "public domain" to bold
  24.   else if field "distribution" = "s" then
  25.     set hilite of background button "shareware" to true
  26.     set textStyle of background button "shareware" to bold
  27.   else if field "distribution" = "c" then
  28.     set hilite of background button "commercial" to true
  29.     set textStyle of background button "commercial" to bold
  30.   end if
  31.  
  32.   if field "registered" = "r" then
  33.     set hilite of background button "registered" to true
  34.     set textStyle of background button "registered" to bold
  35.   end if
  36.  
  37.   if field "copy protected" = "c" then
  38.     set hilite of background button "copy protected" to true
  39.     set textStyle of background button "copy protected" to bold
  40.   end if
  41.  
  42.   pass openCard
  43. end openCard
  44.  
  45.  
  46.  
  47. on ClearButtons
  48.   set hilite    of background button "public domain" to false
  49.   set hilite    of background button "shareware" to false
  50.   set hilite    of background button "commercial" to false
  51.   set textStyle of background button "public domain" to plain
  52.   set textStyle of background button "shareware" to plain
  53.   set textStyle of background button "commercial" to plain
  54. end ClearButtons
  55.  
  56.  
  57.  
  58. on ClearBoxes
  59.   set hilite    of background button "registered" to false
  60.   set hilite    of background button "copy protected" to false
  61.   set textStyle of background button "registered" to plain
  62.   set textStyle of background button "copy protected" to plain
  63. end ClearBoxes
  64.  
  65.  
  66.  
  67. -- part 2 (field)
  68. -- low flags: 00
  69. -- high flags: 4000
  70. -- rect: left=42 top=102 right=138 bottom=229
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 0 / 0
  73. -- text alignment: 0
  74. -- font id: 226
  75. -- text size: 12
  76. -- style flags: 0
  77. -- line height: 16
  78. -- part name: software
  79.  
  80.  
  81. -- part 7 (button)
  82. -- low flags: 00
  83. -- high flags: 0004
  84. -- rect: left=142 top=289 right=325 bottom=179
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 1014 / 1014
  87. -- text alignment: 1
  88. -- font id: 0
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 16
  92. -- part name: Prev
  93. ----- HyperTalk script -----
  94. on mouseUp
  95.   visual effect dissolve
  96.   go to previous card
  97. end mouseUp
  98.  
  99.  
  100.  
  101. -- part 8 (button)
  102. -- low flags: 00
  103. -- high flags: 0004
  104. -- rect: left=182 top=289 right=325 bottom=219
  105. -- title width / last selected line: 0
  106. -- icon id / first selected line: 1013 / 1013
  107. -- text alignment: 1
  108. -- font id: 0
  109. -- text size: 12
  110. -- style flags: 0
  111. -- line height: 16
  112. -- part name: Next
  113. ----- HyperTalk script -----
  114. on mouseUp
  115.   visual effect dissolve
  116.   go to next card
  117. end mouseUp
  118.  
  119.  
  120.  
  121. -- part 12 (button)
  122. -- low flags: 00
  123. -- high flags: 0004
  124. -- rect: left=6 top=289 right=325 bottom=47
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 21700 / 21700
  127. -- text alignment: 1
  128. -- font id: 0
  129. -- text size: 12
  130. -- style flags: 0
  131. -- line height: 16
  132. -- part name: Home
  133. ----- HyperTalk script -----
  134. on mouseUp
  135.   visual effect iris close
  136.   go Home
  137. end mouseUp
  138.  
  139.  
  140.  
  141. -- part 13 (button)
  142. -- low flags: 00
  143. -- high flags: 0004
  144. -- rect: left=222 top=289 right=325 bottom=262
  145. -- title width / last selected line: 0
  146. -- icon id / first selected line: 1012 / 1012
  147. -- text alignment: 1
  148. -- font id: 0
  149. -- text size: 12
  150. -- style flags: 0
  151. -- line height: 16
  152. -- part name: Return
  153. ----- HyperTalk script -----
  154. on mouseUp
  155.   visual effect iris close
  156.   pop card
  157. end mouseUp
  158.  
  159.  
  160.  
  161. -- part 15 (field)
  162. -- low flags: 00
  163. -- high flags: 4000
  164. -- rect: left=89 top=145 right=162 bottom=139
  165. -- title width / last selected line: 0
  166. -- icon id / first selected line: 0 / 0
  167. -- text alignment: 0
  168. -- font id: 226
  169. -- text size: 10
  170. -- style flags: 0
  171. -- line height: 13
  172. -- part name: version
  173.  
  174.  
  175. -- part 16 (field)
  176. -- low flags: 00
  177. -- high flags: 4000
  178. -- rect: left=181 top=145 right=161 bottom=230
  179. -- title width / last selected line: 0
  180. -- icon id / first selected line: 0 / 0
  181. -- text alignment: 0
  182. -- font id: 226
  183. -- text size: 10
  184. -- style flags: 0
  185. -- line height: 13
  186. -- part name: size
  187.  
  188.  
  189. -- part 17 (button)
  190. -- low flags: 00
  191. -- high flags: A005
  192. -- rect: left=377 top=67 right=86 bottom=506
  193. -- title width / last selected line: 0
  194. -- icon id / first selected line: 0 / 0
  195. -- text alignment: 1
  196. -- font id: 92
  197. -- text size: 10
  198. -- style flags: 0
  199. -- line height: 13
  200. -- part name: copy protected
  201. ----- HyperTalk script -----
  202. on mouseUp
  203.  
  204.   if field "copy protected" = "c" then
  205.     put empty into field "copy protected"
  206.     set hilite of background button "copy protected" to false
  207.     set textstyle of background button "copy protected" to plain
  208.   else
  209.     put "c" into field "copy protected"
  210.     set hilite of background button "copy protected" to true
  211.     set textstyle of background button "copy protected" to bold
  212.   end if
  213.  
  214. end mouseUp
  215.  
  216.  
  217.  
  218. -- part 18 (button)
  219. -- low flags: 00
  220. -- high flags: E006
  221. -- rect: left=271 top=33 right=51 bottom=392
  222. -- title width / last selected line: 0
  223. -- icon id / first selected line: 0 / 0
  224. -- text alignment: 1
  225. -- font id: 92
  226. -- text size: 10
  227. -- style flags: 256
  228. -- line height: 13
  229. -- part name: public domain
  230. ----- HyperTalk script -----
  231. on mouseUp
  232.   put "p" into field "distribution"
  233.   ClearButtons
  234.   set hilite of background button "public domain" to true
  235.   set textstyle of background button "public domain" to bold
  236. end mouseUp
  237.  
  238.  
  239.  
  240. -- part 19 (button)
  241. -- low flags: 00
  242. -- high flags: A006
  243. -- rect: left=271 top=50 right=68 bottom=376
  244. -- title width / last selected line: 0
  245. -- icon id / first selected line: 0 / 0
  246. -- text alignment: 1
  247. -- font id: 92
  248. -- text size: 10
  249. -- style flags: 0
  250. -- line height: 13
  251. -- part name: shareware
  252. ----- HyperTalk script -----
  253. on mouseUp
  254.   put "s" into field "distribution"
  255.   ClearButtons
  256.   set hilite of background button "shareware" to true
  257.   set textstyle of background button "shareware" to bold
  258. end mouseUp
  259.  
  260.  
  261.  
  262. -- part 20 (button)
  263. -- low flags: 00
  264. -- high flags: A006
  265. -- rect: left=271 top=67 right=85 bottom=376
  266. -- title width / last selected line: 0
  267. -- icon id / first selected line: 0 / 0
  268. -- text alignment: 1
  269. -- font id: 92
  270. -- text size: 10
  271. -- style flags: 0
  272. -- line height: 13
  273. -- part name: commercial
  274. ----- HyperTalk script -----
  275. on mouseUp
  276.   put "c" into field "distribution"
  277.   ClearButtons
  278.   set hilite of background button "commercial" to true
  279.   set textstyle of background button "commercial" to bold
  280. end mouseUp
  281.  
  282.  
  283.  
  284. -- part 21 (button)
  285. -- low flags: 00
  286. -- high flags: A005
  287. -- rect: left=377 top=50 right=68 bottom=493
  288. -- title width / last selected line: 0
  289. -- icon id / first selected line: 0 / 0
  290. -- text alignment: 1
  291. -- font id: 92
  292. -- text size: 10
  293. -- style flags: 0
  294. -- line height: 13
  295. -- part name: registered
  296. ----- HyperTalk script -----
  297. on mouseUp
  298.  
  299.   if field "registered" = "r" then
  300.     put empty into field "registered"
  301.     set hilite of background button "registered" to false
  302.     set textstyle of background button "registered" to plain
  303.   else
  304.     put "r" into field "registered"
  305.     set hilite of background button "registered" to true
  306.     set textstyle of background button "registered" to bold
  307.   end if
  308.  
  309. end mouseUp
  310.  
  311.  
  312.  
  313. -- part 28 (field)
  314. -- low flags: 00
  315. -- high flags: 4000
  316. -- rect: left=306 top=102 right=119 bottom=387
  317. -- title width / last selected line: 0
  318. -- icon id / first selected line: 0 / 0
  319. -- text alignment: 0
  320. -- font id: 226
  321. -- text size: 10
  322. -- style flags: 0
  323. -- line height: 13
  324. -- part name: Cost
  325.  
  326.  
  327. -- part 29 (field)
  328. -- low flags: 00
  329. -- high flags: 4000
  330. -- rect: left=306 top=121 right=140 bottom=496
  331. -- title width / last selected line: 0
  332. -- icon id / first selected line: 0 / 0
  333. -- text alignment: 0
  334. -- font id: 226
  335. -- text size: 10
  336. -- style flags: 0
  337. -- line height: 13
  338. -- part name: type
  339.  
  340.  
  341. -- part 24 (field)
  342. -- low flags: 00
  343. -- high flags: 2007
  344. -- rect: left=277 top=162 right=234 bottom=494
  345. -- title width / last selected line: 0
  346. -- icon id / first selected line: 0 / 0
  347. -- text alignment: 0
  348. -- font id: 226
  349. -- text size: 10
  350. -- style flags: 0
  351. -- line height: 13
  352. -- part name: publisher
  353.  
  354.  
  355. -- part 25 (field)
  356. -- low flags: 00
  357. -- high flags: 2007
  358. -- rect: left=277 top=257 right=325 bottom=493
  359. -- title width / last selected line: 0
  360. -- icon id / first selected line: 0 / 0
  361. -- text alignment: 0
  362. -- font id: 226
  363. -- text size: 10
  364. -- style flags: 0
  365. -- line height: 13
  366. -- part name: publisher
  367.  
  368.  
  369. -- part 22 (field)
  370. -- low flags: 00
  371. -- high flags: 4000
  372. -- rect: left=84 top=49 right=69 bottom=229
  373. -- title width / last selected line: 0
  374. -- icon id / first selected line: 0 / 0
  375. -- text alignment: 0
  376. -- font id: 226
  377. -- text size: 10
  378. -- style flags: 0
  379. -- line height: 13
  380. -- part name: serialNr
  381.  
  382.  
  383. -- part 23 (field)
  384. -- low flags: 80
  385. -- high flags: 0002
  386. -- rect: left=393 top=30 right=49 bottom=419
  387. -- title width / last selected line: 0
  388. -- icon id / first selected line: 0 / 0
  389. -- text alignment: 0
  390. -- font id: 3
  391. -- text size: 12
  392. -- style flags: 0
  393. -- line height: 16
  394. -- part name: distribution
  395.  
  396.  
  397. -- part 30 (field)
  398. -- low flags: 80
  399. -- high flags: 0002
  400. -- rect: left=421 top=30 right=49 bottom=447
  401. -- title width / last selected line: 0
  402. -- icon id / first selected line: 0 / 0
  403. -- text alignment: 0
  404. -- font id: 3
  405. -- text size: 12
  406. -- style flags: 0
  407. -- line height: 16
  408. -- part name: registered
  409.  
  410.  
  411. -- part 31 (field)
  412. -- low flags: 80
  413. -- high flags: 0002
  414. -- rect: left=449 top=30 right=49 bottom=475
  415. -- title width / last selected line: 0
  416. -- icon id / first selected line: 0 / 0
  417. -- text alignment: 0
  418. -- font id: 3
  419. -- text size: 12
  420. -- style flags: 0
  421. -- line height: 16
  422. -- part name: copy protected
  423.  
  424.  
  425. -- part 32 (field)
  426. -- low flags: 80
  427. -- high flags: 2004
  428. -- rect: left=273 top=30 right=144 bottom=497
  429. -- title width / last selected line: 0
  430. -- icon id / first selected line: 0 / 0
  431. -- text alignment: 0
  432. -- font id: 226
  433. -- text size: 12
  434. -- style flags: 0
  435. -- line height: 16
  436. -- part name: registry
  437.  
  438.  
  439. -- part 33 (button)
  440. -- low flags: 00
  441. -- high flags: 0000
  442. -- rect: left=132 top=195 right=246 bottom=188
  443. -- title width / last selected line: 0
  444. -- icon id / first selected line: 0 / 0
  445. -- text alignment: 1
  446. -- font id: 0
  447. -- text size: 12
  448. -- style flags: 0
  449. -- line height: 16
  450. -- part name: registry
  451. ----- HyperTalk script -----
  452. on mouseUp
  453.   set the visible of field "registry" to not the visible of field "registry"
  454. end mouseUp
  455.  
  456.  
  457.  
  458. -- part 34 (button)
  459. -- low flags: 00
  460. -- high flags: 2004
  461. -- rect: left=98 top=289 right=325 bottom=139
  462. -- title width / last selected line: 0
  463. -- icon id / first selected line: 8538 / 8538
  464. -- text alignment: 1
  465. -- font id: 0
  466. -- text size: 12
  467. -- style flags: 0
  468. -- line height: 16
  469. -- part name: Find
  470. ----- HyperTalk script -----
  471. on mouseUp
  472.   global key
  473.   ask "Enter word or name you're looking for:" with key
  474.   if it is not empty then
  475.     go to next card
  476.     find it
  477.     put it into key
  478.   end if
  479. end mouseUp
  480.  
  481.  
  482.  
  483. -- part 35 (button)
  484. -- low flags: 00
  485. -- high flags: 2004
  486. -- rect: left=50 top=289 right=325 bottom=95
  487. -- title width / last selected line: 0
  488. -- icon id / first selected line: 20186 / 20186
  489. -- text alignment: 1
  490. -- font id: 0
  491. -- text size: 12
  492. -- style flags: 0
  493. -- line height: 16
  494. -- part name: 
  495. ----- HyperTalk script -----
  496. on mouseUp
  497.   answer "Sort all cards of this stack according to:" with "Title" or "Type" or "Cancel"
  498.   push card
  499.   if it is "Title"
  500.   then sort by field "software"
  501. else if it is "Type"
  502. then sort by field "type"
  503. pop card
  504. end mouseUp
  505.  
  506.